home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 8 / FM Towns Free Software Collection 8.iso / fb386 / eiyoukei / edump.bas < prev    next >
BASIC Source File  |  1994-06-01  |  564b  |  19 lines
  1. 10 'SAVE "EDUMP.BAS",A
  2. 20 '       V2.2                   94.02.03
  3. 30 '
  4. 40 OPEN "EIYSHYO.DAT" FOR INPUT AS #1
  5. 50 C6=7:CLS:CONSOLE C6,15,0:COLOR 7
  6. 60 LOCATE 0,0
  7. 70 FOR I=1 TO 5:LINE INPUT #1,A$:PRINT A$;
  8. 80 IF I<5 THEN PRINT 
  9. 90 NEXT I
  10. 99 PRINT
  11. 100 PRINT  "0         1        2         3         4         5         6        " 
  12. 110 PRINT "12345678901234567890123456789012345678901234567890123456789012345678"; 
  13. 120 LOCATE 0,C6
  14. 130 WHILE NOT EOF(1)
  15. 140 LINE INPUT #1,A$:PRINT A$
  16. 150 X$=INKEY$:IF X$="" THEN 150
  17. 160 WEND
  18. 170 CLOSE:RUN "MENUFDMP.BAS"
  19.